home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / crt.swg / 0012_Enable Brite-NOBRITE.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  600 b   |  18 lines
  1. {****************************************************************************
  2.  * Procedure ..... SetBright;
  3.  * Purpose ....... To enable intensity vice blinking
  4.  * Parameters .... None
  5.  * Returns ....... Nothing
  6.  * Notes ......... Colors with the background attribute high-bit set will
  7.  *                 show the background in bright colors.
  8.  * Author ........ Martin Richardson
  9.  * Date .......... October 28, 1992
  10.  ****************************************************************************}
  11. PROCEDURE SetBright; ASSEMBLER;
  12. ASM
  13.    MOV  AX, 1003h
  14.    XOR  BL, BL
  15.    INT  10h
  16. END;
  17.  
  18.